home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestIText < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.4 KB  |  61 lines
  1. scr <- Screen   new: 16r40D20001
  2.  
  3. scr open: 'TestScreen'
  4.  
  5. win <- Window new: 'TestWindow'
  6.  
  7. win setFlags:       16r100F "ACTIVATE + SIZING + DRAG + DEPTH + CLOSE" 
  8. win setIDCMPFlags:  16r200  "CLOSEWINDOW"
  9.  
  10. win setWindowOrigin:   0 @ 16
  11. win setWindowSize:   500 @ 300
  12.  
  13. win openOnScreen:   scr
  14.  
  15. font <- Font new: 'helvetica.font'
  16. font    setYSize: 13
  17. font    setStyle: 6                 "BOLD & ITALIC Style"
  18.  
  19. itxt <- IText new: 'Testing IntuiText primitives...'  
  20.  
  21. itxt setPens:        6 @ 1
  22. itxt setITextOrigin: 0 @ 0
  23. itxt setDrawMode:    0              "JAM1 = 0"
  24.  
  25. itxt registerTo:  win
  26.  
  27. win  printIText:  itxt at: 30 @ 20
  28.  
  29. itxt setFont:     font
  30. itxt setDrawMode: 1                 "JAM2 = 1"
  31. win  printIText:  itxt at: 30 @ 35
  32.  
  33. itxt setDrawMode: 2                 "COMPLEMENT = 2"
  34. win  printIText:  itxt at: 30 @ 50
  35.  
  36. font setStyle:    0                 "NORMAL Style"
  37. itxt setDrawMode: 4                 "INVERSVID = 4"
  38. win  printIText:  itxt at: 30 @ 65
  39.  
  40. itxt setPens:     1 @ 0
  41. font setStyle:    2                 "BOLD Style"
  42. font setYSize:    15
  43. itxt setIText:    'Press Close Gadget when you are done!'
  44. itxt setDrawMode: 0
  45. win  printIText:  itxt at: 100 @ 270
  46.  
  47. rval <- itxt getTextLength
  48. ('Last IText was ', rval, ' pixels long!') print
  49.  
  50. returnValue <- String new
  51. returnValue <- win handleIntuition
  52.  
  53. ('HandleIntuition returned ', returnValue) print
  54.  
  55. itxt dispose
  56.  
  57. font dispose
  58.  
  59. win  close
  60. scr  close
  61.